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MODULE PASSSFILE_UTIL ( Frthe "File manipulation ust ity BS cedures' 
DENT = '1-005' ! File: PASFILEUT.B32 Edit: SBL1005 
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BEGIN 


Vee 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
OF THE AB I$ TWARE OR ANY OTHER 
urs A 


& 

* 

* 

® 

® 

* 

® 

DE AVAILABLE TO ANY 
is TRANSFERRED. e 
° *® 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* 

* 

® 

x 

® 

* 

* 

wv 


: SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
't CORPORATION. 


ix DIGITAL ASSUMES NO RESPONS 
'® SOFTWARE ON EQUIPMENT WHIC 
it 
PITTIIITILI LILI LILI TLL LLL LLL LLL LLL LLL LLL LLL LLL 
i 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 
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0080 | t+ 

+ } FACILITY: Pascal Language Support 

90 ABSTRACT: 

O8 Utility procedures to manipulate the global List of files. 

4 ENVIRONMENT: User mode - AST reentrant 

09 AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

00 i MODIFIED BY: | 
00 { 1-001 - Original. SBL 1-April-1981 | 
0044 ! 1-002 - Don*t assume that PFV contains valid information in PASS$CLOSE_LOCAL_R3. 

0045 : Use DO_CLOSE_HANDLER to display error messages from DO_CLOSE. 

0046 : SBL 28-Jun-1982 gee 

0047 ! 1-003 - Set all PFV fields that are needed to close the file in PASSSCLOSE_LOCAL. | 
0048 ‘ SBL 29-Jun-1982 

0049 ! 1-004 - Move FCOSL STATUS to PLY SL STATUS in PASSSREMOVE_FILE. 
0050 ! QAR FT3-2 ~SBL yeves ee : 

0051 ! 1-005 - Allow PASSSREMOVE_FILE to be called without the queue having been 

B936 : initialized. This can occur if the first file opened in the program 

B03 fails to open and the OPEN is unwound. SBL 10-Jan-1983 
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File manipulation utility procedures 
Declarations 


RSBTTL ‘Declarations’ 
PROLOGUE DEFINITIONS: 


REQUIRE ‘RTLIN:PASPROLOG'; 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
PASSSADD_FILE: NOVALUE, 

PASSSREROVE Fite: yNOVALUE. 

PASSSPROMPT_ =ALL 


Log ‘Rov VALU e. 
DO- OSE DLER 
IATTIAC Ze QUEUE: NOVALUE, 
SERVICE_REQUEST: NOVALUE; 
1! 
MACROS: 
NONE 
EQUATED SYMBOLS: 
. NONE 
| FIELDS: 
! NONE 
OWN STORAGE: 


OWN 
FILE QUEUE: VECTOR (2, LONG) 
REQUEST LEVEL: INITIAL (-1), 
QUEUE yaatte IZED: INITIAL ( 
REMOVE _REQUESTED: INITIAL (0 


18- sop-19 4 01:33:01 
14- 73007138 3 
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Linkages, externals, PSECTs, structures 


! Add file to global List 
' Remove file from global List 


' Close all local files 
! peg callable 

' Close a 

' Handler hey DO_ CLOSE 

! Initialize FILE_ QUEUE 
' Service remove request 


' Queue of FCBs 

' peontcancy level 

' True if queue initialized 

!' Remove requested from AST Level 
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1 
ILE = Add file to queue 1 


le 

REQUEST_LEVEL = .REQUEST_LEVEL + 1; 

'¢ 

Insert FCB onto FILE_QUEUE at head. 
INSQUE (FCB CFCBSL_QUEUE_FLINK], FILE_QUEUE); 

2 

2 

1 


14 
Mark the FCB as being on the queue. 


OOOCOCCOCOCOCOO vu" 


rmrrorororororororororerrrrrrn 


FCB CFCBSV_ON_QUEUE) = 1; 

+ | 
: Decrement REQUEST_LEVEL. 
REQUEST_LEVEL = .REQUEST_LEVEL - 1; 


1+ 
If a remove request has been made, service it. 


WR OS OONOUE WN OO OONOUE WHO 


IF REMOVE REQUESTED 
SERVICE _REQUEST (); 

RETURN; 

END; ! End of routine PASS$SS$ADD_FILE 
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: ures 
-IDENT \1-005\ 


~-PSECT _PASSDATA,NOEXE, PIC,2 
00000 henccmene 
FFFFFFFF 00008 meeuest LF irs “1 
00000000 0000C enmenelt vee ¥ 
00000000 00010 REMOVE _REQUESTED: 
-LONG 0 


| 
| 
| 
-TITLE PASSSFILE_UTIL File manipulation utility proced | 
| 
| 
| 


.EXTRN PASSSADD_FILE, PASSSREMOVE_FILE 
-EXTRN PASSSPROMPT_ALL 

SEXTRN PASSSPROMPT “FILE 

-EXTRN PASSS$CLOSE_ALL, PASSCLOSE_LOCAL_R3 
“EXTRN PASSS$CLOSE~LOCAL 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


eet} | nee 
PASRTL.SRCJPASFILEUT.B52;1 
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04 
04 
BC 
04 
08 


3 00000000' 
0 


0000v CF 
F8 
FE 


PASSCODE + 0000 


49 bytes, Routine Base: 


; Routine Size: 


0326 1 
0255 1 !<BLF/PAGE> 


See eS FS SCS HS FSCS HS FSCS SCS FSCS CS FTES SSCS *S FCS *S FSCS sere *See *S FS se tere sere re *S sere *S*e*S a *e*e 


'¢ 
: Initialize the queue if necessary. 


MUNN BELL EEE EW 


ee, 
PASSSFILE_UTIL File manipulation utility procedures 16-Sep-1984 01:33:01 AX-11 Bliss-32 V4.0-74 Page 6 
1-005 PASSSREMOVE FILE - Remove File from queue 14-Sep-19 4 93:37:95 PASRTL SREIPASF ILEUT. 89251 ss (4) 
: 196 8 2$ 1 SSBTTL passenenove FILE = Remove file from queue' 
; #19 57 1 GLOBAL reg! PASSSREMOVE FILE ( 
; 198 0 28 1 FCB: REF SPASSFCB_CONTROL_BLOCK 
; 199 0 1 ): NOVALUE = 
; 200 8 60 1 
; 201 61 1 S44 
; 8¢ 8 66 1 ! FUNCTIONAL DESCRIPTION: 
; 20 65 1! 
; Be 8 rf : Remove a file's FCB from the queue of files. 
; 206 0 66 1 ! CALLING SEQUENCE: 
; 207 0267 1! 
; 208 02668 1! PASSSREMOVE_FILE (FCB.r.r) 
; 209 os¢e 1! 
H 10 0270 1 ! FORMAL PARAMETERS: 
rsh Oe7t 1 | | 
3 \¢ 0 Lf 7 FCB File Control Block for file 
; 1 0275 1! | 
3 14 0274 1 ! IMPLICIT INPUTS: 
ie 4b: 0275 1! 
; 216 pe7é 1! FILE QUEUE | 
; 217 0277 1! REQUEST LEVEL 
; 218 0278 1! QUEVE_ INITIALIZED 
; 219 0279 1! REMOVE _REQUESTED 
; 220 0280 1! | 
: $$! 0281 1 ! IMPLICIT OUTPUTS: 
; $6 pees 2 
$ €e 0285 1! FILE QUEUE 
; 224 0284 1! REQUEST LEVEL 
; 225 0285 1! QUEUE INITIALIZED 
3 £e 0286 1! REMOVE REQUESTED | 
; 27 0287 1! FCB CFCB$V_DEALLOC) 
; 228 0288 1! 
s dey $434 1 ! COMPLETION STATUS: 
; « 0290 1! 
; 23) 0291 1! NONE 
3 gsc f954 1! 
R ga 0295 1 ! SIDE EFFECTS: 
; 234 0294 1! : 
3; 22 0295 1! Removes FCB from FILE_QUEUE or requests deallocation. 
; 236 0296 1! 
; 237 0297 1 ! SIGNALLED ERRORS: | 
; 238 0298 1! 
3 9 5944 1! NONE 
; 0 0300 1 !-- 
; 1 0301 1 
; ¢ 0308 BEGIN | 
; 030 | 
: 4 0304 BUILTIN 
: 5 0305 REMQUE ; 
; 6 0 
3 ? 0 
; 3 0 
3 0 6 
: 1 0 
; 2 


IF NOT .QUEUE_INITIALIZED 
THEN 


eee a en ae ey pee er ae Saban 


DEA 
REMOVE _REQUEST 
END; 


Swans 


'¢ 


| Decrement REQUEST_LEVEL. 


7 

PASSSFILE_UTIL File manipulation utility procedures 18-3 ep-1984 01:33:01 AX-11 Bliss-32 V Page 7 

atts PASSSREMOVE FILE - Renove Rite from queue 14- et) 7 9}: HE 9 PASRTL’ SR ROIP PASFIL OF 882; 31 . (4) | 

3 3 13 INITIALIZE_QUEUE (); : 
; 4 14 : 
; 5 15 1+ : ; 
3 $ 1 Invalidate FCB pointer in PFV. : 
3 8 0 \8 3 
; 259 1 BEGIN : 
H 60 0 — : 
; 261 1 REF tye pune VARIABLE; ‘ 
3 66 ¢ PFV “4 ‘ice CFC ’ 
$ 6 PFV pre vev. tt FCB ayia P 
3 ee : PFV CPFVS$L-STATUS Fee ‘CF CBSL. STATUS]; ! Overlays PFVSA_FCB : 
; 266 8 6 ; 
; 267 7 : 
3 $08 0328 + ; 
: 269 0329 i If the FCB is not on the queue then simply free the ; 
: $f 0330 j_Sterege and return. : 
; 271 0331 | : 
; si¢ Bag $ 
: ar 0333 2 IF NOT .FCB CFCBSV_ON_QUEUEJ : 
; 274 0334 ¢ THEN : 
; e275 0335 BEGIN | : 
: 276 0336 ; CAL | : 
; 277 0337 BL OCK ADDR; ! Address of 0) Located block : 
3 sie 0338 BLOCK_ADD FCB CFCBSL_QUEUE_FLINK); ; 
3; ery 0339 PASSSFREE _VM (PASSK_FILE_DYN “BLN, BLOCK -ADDR) ; : 
; 280 0340 END : 
; ae 0341 3 | ; 
3 see 0346 2 ELSE : 
; ao 034 : 
3 284 0344 BEGIN | ; 
; 285 0345 : 
: 286 0346 "Increment REQUEST_LEVEL, If we are at level zero, then we can do the : 
; 287 0347 i REMQUE directly, S0 do it and free the storage. ; 
: see peee 3 j Otheruise set the DEALLOC bit in the FCB and set REMOVE_REQUESTED. | : 
: 290 0350 ; 3 
; 291 0351 IF (REQUEST_LEVEL=.REQUEST_LEVEL+1) EQL 0 ; 
é soe 3326 3 THEN ; 
; 29 0353 4 eesis ; 
: 294 0354 4 3 
; 295 0355 4 ! Qutput from REMQUE 3 
; 96 0396 4 REMOUE Ee "ti cos. L QUEUE . FLINK], ITEM_ADDR); ; 
s 9 57 4 FCB$V : 
é 98 0358 4 PASSS$FREE YOR TRHEUE _FILE_DYN_BLN, ITEM_ADDR); : 
: 299 b325 4 END 3 
: 300 360 3 ELSE : 
; 0361 4 BEGIN . 
$ 036 ? FCB CFCB$V : 


Se 
Cooooo°co: 
WAw 

oo 
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1-008 PASSSREMOVE FILE = Remove file from queue eae en ee eg ee ett eSpage lr eur og2s1 * as 
; 19 0 REQUEST_LEVEL = .REQUEST_LEVEL = 1; 
: 31 7 END; 
3 8 1g 
; 314 0374 '¢ 
3 15 8 75 ' If a remove request has been made, service it. 
: 316 id: ie 
: 317 : 7 
: 318 78 IF .REMOVE_REQUESTED 
> 319 0379 THEN 
: 320 0380 SERVICE_REQUEST (); 
2 8 
3 038 
; 324 0384 1 END; ! End of routine PASSSREMOVE_FILE 
.EXTRN PASSSFREE_VM | 
001¢ 00000 .ENTRY PASSSREMOVE FILE, Save R2,R3,R4 : 0257. 
54 000000006 00 9€ 00002 MOVAB PASSSEREE V ; 
53 00000000" EF 9E& 00009 MOVAB REQUEST revel, RR3 3 
SE 08 C2 00010 SUBL2 #8, SP ; 
05 04 A3 €8 00013 LBS QUEUE I INITIALIZED, 1 + 0311 
0000v CF 00 FB 00017 CALLS INITIALIZE_QUEUE + 0313) 
52 04 AC DO 0001C 18: MOVL rch, R2 + 0322 
50 DC A2 dO 00020 OVL =36(Re) . PFV : 
07 AO 40 8F 8A 00024 BICB2 #64, 7(PFV) : 0323 
0c a0 D4 Ae DO 00029 OVL -44(R2), 12(PFV) > 0324 
10 FE A2 0 £0 000 : BBS #5 <8 (R2) 2 : 0333 
6E BC A2 9E 000 MOVAB -68(R2), BLOCK_ADDR : 0338 
5E go 00037 PUSHL SP : 0339 | 
7E 0138 8F 3C 00039 MOVZWL #312, -(SP) ; 
64 02 FB 0003E CALLS #2, PASSSFREE_VM : 
28 11 00041 BRB : 0333 
t 06 00043 28: INCL REQUEST_LEVEL > 0351 
1D 12 00045 BNEQ ; 
52 BD Ag 9E 00047 MOVAB =-67(R2 + 0356 
04 AE 72 OF 00048 REMQUE ~eA She irea _ADDR ; 
50 04 AC DO 0004F MOVL , RO : 0357 | 
FE AO 20 BA 00053 BICB2 #32. -2(RO) ; 
04 AE 9F 00057 PUSHAB ITEM_ADDR : 0358 
7E 0138 af 3¢ OO05A MOVZWL 312 -(SP) ; 
64 2 FB 0005F CALLS #2, PAS$SFREE_VM F 
08 11 90062 8 > 0351 
FE OA 2 88 00064 3$ BISB2 #2, -2(R2) F 036¢ 
08 A 01 DO 00068 VL REMOVE REQUESTED > 036 
63 D7 0006C 4$: DECL REQUEST LEVEL : 0370 
05 08 Ad €9 9006 5$: BLBC REMOVE REQUESTED ; 0378 | 
0000v CF 00 FB 0007 CALLS SERVICE REQUEST? : 0380 | 
04 00077 6$: ET > 03864 | 
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16-Sep-1984 01:33:01 
TALL = Prompt on ail prompt-enabled 14-Sep-19 4 9587 :3 


XSBTTL "PASSSPROMPT ALL = Prompt on all prompt-enabled files’ 
GLOBAL, ROUT INE PASSSPROMPT_ALL prompt-enabled files 
: = 


AX-11 Bliss-32 V4 
PASRTL.SRCJPASFIL 


++ 
FUNCTIONAL DESCRIPTION: 


Finds all files for which prompting is enabled and which have 
partial Lines and writes the partial Lines. 


CALLING SEQUENCE: 
PASSSPROMPT_ALL () 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 
NONE 

SIDE EFFECTS: 


! SIGNALLED ERRORS: 


1 

i 

! 

i 

; REQUEST LEV 
' 

4 

i] 

a 


BEGIN 


LOCAL 
FCB: REF SPAS$FCB_CONTROL_BLOCK; ! File control block 
BIND 

RAB = FCB: REF BLOCK C, BYTE]; 


BUILTIN 
TESTBITCS; 


! RAB is FCB 


‘+ 
If queue is not initialize, bugcheck. 


IF NOT .QUEVE_INITIALIZED 
THEN 


0-788 
EUT.832;1 
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! 

H Be tte SPASSBUGCHECK (BUG_FQNOTINIT); : 
; 38 re, '¢ : 
3; 98 44 : Increment REQUEST_LEVEL. : 
; we 448 te . 
; 390 449 : 
: 4 +29 REQUEST_LEVEL = .REQUEST_LEVEL + 1; : 
; 126 1+ : 
; 394 045 ! Get the first file from the queue. : 
; 395 0454 le ; 
3 4] ot : 
; 39 456 FCB = .FILE_QUEUE (0); ‘ 
; 398 0457 : 
; 399 bees '¢ : 
; 400 459 : While there are files left, look for files to prompt on. : 
. ; 
; 40 Breg WHILE (FCB CFCBSR_FCB) NEQA FILE_QUEVE) DO ! Stop when we get back to header | : 
; 404 046 BEGIN ney ; 
; 405 0464 FCB = FCB CFCBSR_FCB) + FCBSK_BLN; ' Set correct FCB origin | ; 
; 406 0465 IF .FCB CFCBSV_PROMPT_ENABLE]” AND : 
; 407 0466 -FCB CFCB$9_GENERATION] AND , 
: 408 0467 NOT .FCB CFCBSV_DEALLOC] : 
: 409 0468 3 THEN : 
: 410 0469 4 BEGIN : 
> 411 0470 4 LOCAL | ; 
; tig 0471 4 PFV: REF SPASSPFV_FILE_VARIABLE; _ | Pascal File Variable : 
> 41 0472 4 PFV = .FCB CFCBSA_PFVI; ! Get file variable : 
; 414 04735 4 IF PFV CPFVS$R_PFVJ NEQA 0 . 
3 415 0474 4 THEN ; 
> 416 0475 4 IF TESTBITCS (PFV CPFV$V_LOCK]) ! Test and set file lock : 
; 417 0476 4 THEN ’ 
; 418 0477 5 BEGIN | : 
> 419 0478 5 '¢ a : 
: 420 0479 5 ! File is locked, See if it is in Generation mode ; 
; 421 0480 5 ' and has a partial Line in the buffer. If so, call : 
3; 6 ¢ 0481 5 ' PASSSPROMPT_FILE to output the prompt. : 
: 4 0482 5 t= : 
> 424 04835 5 
: 425 0484 5 IF .FCB CFCBSV_GENERATION] AND 
: $s8 nt #4 g . re CFCBSA_RECORD_CUR] NEQA .FCB CFCBSA_RECORD_BEG)) 
; 
3 is be i PASSSPROMPT_FILE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB)); 
Py } 
: 430 0489 '¢ 
: 431 0490 5 ! Unlock file. 
; $38 0491 5 le 
3; 43 0492 5 
; 434 0493 5 PFv CPFV$V_LOCK) = 0; 
; 4355 bebe 4 END; 
; 436 95 4 
: 437 hy END; 
3 $38 49 
: 439 498 '¢ : 
3; 440 499 ' Get next file from queue. 
3 (441 0500 te 
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; Routine Size: 


7 
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FCB = .FCB CFCBSL_QUEUVE_FLINK]; 
END; 


'¢ 
Decrement REQUEST_LEVEL. 


REQUEST_LEVEL = .REQUEST_LEVEL = 1; 


'+ 


If a remove request has been made, service it. 


IF_ .REMOVE REQUESTED 
SERVICE_REQUEST (); 


:01 AX-11 Bliss-32 V 
729 PASRTL. SRC] 


4.0-7 
PASFILEUT. : 2;1 


RETURN; 
END; ! End of routine PASSS$PROMPT_ALL 
PASSSBUGCHECK 
00¢4 00000 PASSSPROMPT ALL, Save R2,R6,R7 
52 00000000" EF 5 00002 OVAB REQUEST LEVEL 
OA 04 A2 €8 00009 BLBS § QUEUE_ INITIALIZED, 1$ 
01 DD 0000D PUSHL 
000000006 00 01 FB OO00F CALLS #1, PAS$$BUGCHECK 
04 00016 RET 
62 D6 00017 1$ INCL  REQUEST_LEVEL 
57 F8 A2 DO 00019 MOVL FILE - QUEUE. FCB 
50 FB Ag 9€ 0001D 2$ MOVAB FILE-QUEUE, RO 
50 57 D1 00021 CMPL FCB, RO 
38 13 00024 BEQL =s«OS$ 
57 44 A? OE 00 6 MOVAB 68(R7), FCB 
FD A? 06 £1 O002A BBC #6, -3(FCB), 4$ 
FD OA? 04 £1 0002F BBC #4, -3(FCB). 4$ 
FE AZ 01 £0 00034 BBS #1. -2(FCB). 4$ 
56 pc «AT 09 900 9 MOVL  -36(FCB), PFV 
19 13 0003D BEQL 4$ 
4 6 1F E2 90 F BBSS #31, 4(PFV), 4$ 
FD OA? 04 £1 00044 BBC #4, -3(FCB). 3$ 
A7 EC AZ? D1 90049 CMPL -20(FCB), -24(FCB) 
03 13 0004 BEQL © 3$ 
0000v 30 0005 BSBW PASSSPROMPT_FILE 
07 Ab 80 8F BA 00053 3$ BICB2 #128, 7(PFVY 
57 BC a7 DO 0058 4$ MOVL  -68(FCB), FCB 
BF 11 0005C BRB $ 
62 07 O05 5$ DECL § REQUEST_LEVEL 
05 08 A2 €9 0006 BLBC REMOVE REQUESTED, 6$ 
0000v CF 00 FB 00064 CALLS #0, SERVICE _REQUEST 
04 00069 6$: ET 


Routine Base: _PASSCODE + OOA9 
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; 46 0524 1 XSBTTL ‘PASSSPROMPT FILE = Prompt on a prompt-enabled files' 
: 28 0525 1 GLOBAL ROUTINE PASSSPROMPT FILE’ ( icine 
; 468 B2 § 1 PFV: REF SPASSPFV_FILE VARIABLE, ' Pascal File Variable 
; 469 5 1 FCB: REF S$PASS$FCB- CONTROL BLOCK ! File Control Block 
; 470 0528 1 ) : JSB_PROMPT_FICE NOVALOE = 
3; 471 B 9 1 
Ps o%g 530 1 !+44 
3 rt be 1 : FUNCTIONAL DESCRIPTION: 
8 cfs 0538 ! Performs a partial-line write on a prompt-enabled file. | 
3 re B23? 1 ! CALLING SEQUENCE: 
3; 478 536 1! 
; 479 0537 1! PASSSPROMPT_FILE (PFV.mr.r, FCB.mr.r) 
; 480 0538 1! 
: 481 0539 1 | FORMAL PARAMETERS: 
: 48 0540 1! 
; 48 0541 1! PFV - The Pascal File Variable for the file. | 
> 484 B2e6 1! ; 
> 485 0545 1! FCB - The File Control Block for the file. 
; 486 0544 1! 
: 487 0545 1! IMPLICIT INPUTS: 
; 488 0546 1! . 
3; 489 0547 1! It is assumed that the file is a prompt-enabled textfile which 
; 490 0548 1! is locked and in Generation mode. 
3 491 0549 1! 
; 49 0550 1 ! IMPLICIT OUTPUTS: 
; 49 0551 1! 
3 494 9236 8 NONE 
: 495 0555 1! 
: 496 0554 1 ! COMPLETION STATUS: 
3; 497 0555 1! 
; 498 0556 1! NONE | 
3; 499 0557 1! | 
; 500 0558 1 ! SIDE EFFECTS: 
; 501 0559 1! ; ; 
: 502 0560 1! A partial Line is written to the file, with the cursor left at 
; 503 0561 1! the end of the text written. 
3; 504 8266 1! | 
; 505 0565 1 ! SIGNALLED ERRORS: 
; 506 0564 1! 
; 507 0565 1! ERRDURPRO - error during prompting 
; 508 0566 1 !-- 
; 509 p22 1 
; 510 568 BEGIN 
2 aan 0569 
; 216 0570 LOCAL . . 
: a7 p30) 2 CHARS_IN_LINE; ! Number of characters in the Line 
s $15 ba78 BIND ‘ 
; 516 0574 RAB = FCB: REF BLOCK C, BYTE); ' RAB is FCB 
s SV 0575 
s 318 0576 '¢ ae: 2 * : 
3 23) Bare If the record has any characters in it, write the partial Line. 
: 521 0579 
; 35) 0580 CHARS_IN_LINE = .FCB CFCBSA_RECORD_CUR] - .FCB CFCBSA_RECORD_BEG); 
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; $23 5 1 IF_.CHARS_IN_LINE NEQ 0 
: 4 § THEN 
; 5 5 BEGIN 
; 8 584 + 
; ‘ H ; Set up record pointer in RAB for $PUT. 
: 529 5 
3; 330 588 RAB CRABSL_RBF] = .FCB CFCBSA_RECORD_BEGI; 
3; da) 0589 RAB CRABSW_RSZ) = .CHARS_IN_LINE; 
3 > ¢ 0590 
3 > 0591 + 
; 534 0236 ' Set carriagecontrol depending on whether a partial 
; 535 59 ! Line has been previously written. 
; 536 0594 to 
3 Sor 0595 
; 235 0397 IF -FCB CFCBSV_PARTIAL_LINEJ 
5 ra b205 : us CFCBSW_PROMPT_CC) = FCBSK_CC_NULL ! Nothing before, nothing 
3 206 e's} FCB CFCBSW_PROMPT_CC] = FCBSK_CC_LFNL; ! LF before, nothing after 
: 544 060 '¢ 
; 545 060 ! Do the SPUT and check for errors. 
; 546 0604 '- 
; 547 0605 
; 548 0606 4 IF NOT SPASSRMS_OP (S$PUT (RAB=.RAB)) 
; 549 0607 ; N 
3s 330 0608 SPASSIO_ERROR (PAS$_ERRDURPRO) ; 
3 351 0609 
3 226 0610 '+ 
3 53 0611 ! Reset the record buffer. 
> 554 pels 3 le 
Re i, 061 ; 
: 556 0614 FCB Best CUR] = .FCB CFCBSA_RECORD_BEG); 
; 557 0615 ; FCB CFCBSV_PARTIAC_LINE) = 1; 
; 558 0616 
; 559 0617 § END; 
; 560 0618 
3 36) 0619 2 RETURN; 
3 266 0620 2 ¢ 
; 0621 1 END; ! End of routine PASS$$PROMPT_FILE 
-EXTRN SYSS$PUT, PASSSSIGNAL 
-EXTRN PAS$K_ERRDURPRO 
50 EC A7 E8 A7 C3 00000 PASSSPROMPT FILE:: 
SUBC3 -24(FCB), -20(FCB), CHARS_IN_LINE 
3 0006 BEQL 
28 «OA? —E8 A7 DO 00008 MOVL -24(FCB), 40(FCB) 
22. «OAT 50 8 0000 MOVW CHARS_IN_LINE, 34(FCB) 
FD A? 0011 TSTB -3(F CB) 
05 18 oR Ie BGEQ 1$ 
FA A of 0016 CLRW -6(F CB) 
1 on ie BRB 
FA A7 B0 018 1$: MOVW #i, -6(FCB) 
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7 oO 1F 2%: PUSHL FCB ; 0606 
000000006 90 1 a} 6 1 CALLS #1, SYS$PUT : 
C 0 € 8 LBS $$STATUS, 4$ : 
0001825A 8F 0 D1 000 | CMPL gee TATUS, #98906 3 
04 i 0 BNEQ $ ; 
E7 FF AZ E8 00034 BLBS -1(FCB) e 3 
oC 50 + 0038 3$: BLBS S$S$STATU : 
E 006 8F 9A 00038 MOVZBL HPASSK UP RRDURPRO, -(SP) ; 0608 
000000006 00 01 FB OQ0O03F CALLS , PASSSSIGNAL 3 | 
05 pons RSB $ 
EC A7 —E8 A7 DO 00047 4$: MOVL -24(FCB), oye ; 0614, 
FD «A? 80 =s BF 43 pp peS BISB2 #128, -3(FCB : 0615 
0051 5$: RSB ; 0621, 
; Routine Size: 82 bytes, Routine Base: _PASS$CODE + 0113 


et 1 
565 06 1 !<BLF/PAGE> 
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1-005 PASSSCLOSE_ALL = Close all open files 14-Sep-19 2:51:29 PASRTL.SRC PASF ILEUT. 5 2;1 (7) 

s Sé7 624 1 XSBITL ‘PASSSCLOSE_ALL = Close all open files’ : 
; 568 625 1 GLOBAL ROUTINE PASSSCLOSE_ALL ; 
; 9 6 § 1 NOVALUE = ; 
; 0 6 1 3 
: 571 06 8 1 44 $ 
; Le: 88 1 ! FUNCTIONAL DESCRIPTION: 3 
. oO 630 1! ; 
; 574 0631 1! Closes all open files. This procedure is called from the exit ; 
s 37> 06 ¢ 1! handler declared by PASSSOPEN. ; 
; 576 06 1! : 
3 S77 0634 1 ! CALLING SEQUENCE: 3 
: 578 be > 2% ; 
; 579 6 $ 1! PASSSCLOSE_ALL () 3 
: 580 06 1! 3 
; 381 0638 1 ! FORMAL PARAMETERS: P 
3 oe6 0639 1! 3 
3; 38 0640 1! NONE $ 
; «4584 0641 1! 3 
; 585 0642 1! IMPLICIT INPUTS: : 
; 586 06435 1! 3 
; 587 0644 1! FILE_QUEUE : 
; 588 0645 1! F 
; 589 0646 1 ! IMPLICIT OUTPUTS: ; 
; 590 0647 1! F 
; #591 0648 1! NONE 3 
; 236 0649 1! 3 
; 2 0650 1 ! COMPLETION STATUS: F 
; 594 0651 1! F 
s 395 0652 1! NONE : 
; 596 0653 1! | F 
; 597 0654 1 ! SIDE EFFECTS: : 
; 598 0655 1! | 5 
; 599 0656 1! Closes all open files, and removes their control blocks ; 
; 600 0657 1! from the queue. > 
; 601 0658 1! 3 
; ong 0659 1 ! SIGNALLED ERRORS: : 
: 60 0660 1! ; 
; 0661 1! NONE $ 
; 605 0662 1 !-- ; 
3 0663 1 ; 
; 607 0664 BEGIN 3 
; 608 0665 ; 
; 609 0666 LOCAL Y : 
; 610 0667 FCB: REF S$PASS$FCB_CONTROL BLOCK, ' File control block g 
; 6611 0668 DUMMY _PFV: S$PASSPFV_FILE _VARIABLE, ' Dummy PFV for local use 3 
3 ole 0669 AST_STATUS; ! Status from $SETAST 3 
; 6! 0670 : 
3 614 0671 BUILTIN 3 
3 615 067 REMQUE ; 3 
; 616 067 3 
: 617 674 ‘> re Sat : : 
; 618 675 ! If queue not initialized, nothing to close. 3 
3: 619 6 le 3 
5 630 67 3 
; 621 678 IF NOT .QUEUE_INITIALIZED : 
3 oc¢ 679 3 
; 6 0680 RETURN; 3 
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> 624 681 H 
; 625 6 ¢ '¢ ; 3 
>; 626 6 i Set up dummy PFV. We will use this to close files since H 
s Ger 684 ' the true PFV may be invalid. F 
; 628 $e 5 ie 3 
; 629 6 : : 
; 630 6 DUMMY _PFV CPFVSW_FLAGS) = 0; F 
; 631 688 : 
; 6 ¢ 0689 '¢ $ 
; 6 0690 ! Disable ASTs 3 
; 634 0691 le 3 
> 635 069 3 
; 636 069 AST_STATUS = S$SETAST (ENBFLG=0); : 
: 637 0694 F 
; 638 0695 '¢ $ 
; 639 0696 i Remove all files from the queue, and close those still open. : 
; 640 069 ie 3 
: 641 0698 ‘ : 
; 64 544 OI BEGIN (.FILE_QUEVE CO], FCB)) DO ! True when REMQUE fails : 
3 644 0701 3 FCB = FCB CFCBSR_FCB) + FCBSK_BLN; ! Get correct FCB origin | 3 
: o70¢ 3 IF NOT .FCB CFCBSV_DEALLOC) | : 
; 646 070 THEN F 
; 647 0704 4 BEGIN PY 
; 648 0705 4 3 
; 649 0706 4 "Use dummy PFV to do the close. 3 
; 650 0707 4 ie F 
; 651 0708 4 DUMMY _PFV CPFVSA_FCB) = ? CFCBSR_FCB); : 
; 65¢ 0709 4 DUMMY~PFV CPFVSA~ =PFD] = .FCB CFCBSK_ PFD); ; 
; 65 0710 4 DUMMY-PFV CPFV$V~FCB VALID) = ; 
3; 654 0711 4&4 DO_CLOSE (DUMMY VpFY CPFVSR 7 oFVaS: ' Close the file : 
; 655 arte 3 ENB; 
; 656 0713 2 END; 
: 657 0714 2 
; 658 0715 2 '¢ 
; 659 0716 2 ! If ASTs were previously enabled, reenable them. 
; 660 0717 $ te 
; 661 0718 
3 66¢ 0719 IF .AST_STATUS EQL SS$_WASSET 
; 66 0720 
3; 664 0721 SSETAST (ENBFLG = 1); 
3; 665 O7S6 
: 666 072 RETURN; 
: 667 b7se 
; 668 0725 END; ! End of routine PASSS$CLOSE_ALL 
| 
EXTRN SYSSSETAST 
001C 00000 -ENTRY PASSSCL OSE -Att. Save R2,R3,R4 : 0625 
54 000000006 08 9 BOn0s MOV SYSS$SE R4 3 
5E 10 C2 0000 SUBL #16, gps : 
3E 00000000" EF E 900¢ LBC 4: RRS 3$ ; 0678 | 
06 AE B84 0001 CLRW  DUMMY-PFV+6 ; 0687 | 
7E D4 B28 CLRL -(SP : 0693 | 
64 01 FB 0001 CALLS #1, SYSSSETAST 3 
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ARSs PASSSCLOSE_ALL = Close a ("open files 12-8 Sep =1382 o: 3} 03 PASRTL. bie space tear B82s1 ° B 1-1 
50 pO 00018 MOVL _— RO, AST_STATUS ; 
33 00000000' Fr OF 3 1$: REAOUE as QOEUE, FCB ; 0699) 
52 44 A? 9E 000 MOVAB $5 R02) FCB : 9701 
EE FE OA Q E B BBS #1, -20F + 0702 
0 AE : D MOVL FCB. , DUMMY _PFY : 0708 
AE E46 OA p 4 MOVL =28(FCB), Bun PFV+8 : 0709 
07 ~AE 40 oF 0039 BISB2 #64, DUMM : 0710 
E 0D 000 PUSHL SP : 0711 
0000v CF 01 FB 0004 CALLS #1, 90_CLOSE : 
D7 11 0004 BRB + 0699 
09 33 D1 90047 2$: CMPL  AST_STATUS, #9 : 0719 | 
05 12 O004A BNEQ 3$ : 
01 DD 0004c¢ PUSHL #1 + 0721 
64 01 FB O004E CALLS #1, SYSS$SETAST : 
04 00051 3$: RET : 0725 


; Routine Size: 82 bytes, Routine Base: _PASSCODE + 0165 


669 0726 1 
670 0727 1 !<BLF/PAGE> 
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ZSBITL 'PASSCLOSE LOCAL R3 - Close local files’ | 
GLOBAL ROUTINE PASSCLOSE LOCAL_R 
: JSB_CLOSE_LOCAL NOVALUE™= 


PASSSFILE_UTIL 
1-005 


le 
S$ 
3 8 1 3 
3 1 $ 
; 0 1 : 
3 0731 1 3 
3 07 ¢ 1 44 3 
: Bf i | FUNCTIONAL DESCRIPTION: : 
3 87 2 : } Closes all open files which were declared local by our caller. : 
3 8 ‘ : CALLING SEQUENCE: : 
; 0739 JSB PASSCLOSE_LOCAL_R3 : 
; 0741 1 ! FORMAL PARAMETERS: : 
3 Bree 4 F 
3 074 7 3 NONE F 
3 0744 1! 3 
2 0745 1! IMPLICIT INPUTS: 3 
; 0746 1! 3 
; 0747 1! Current FP (Caller's) 3 
: 0748 1! 3 
: 0749 1°! IMPLICIT OUTPUTS: : 
3 0750 1! F 
; 0751 1! NONE ; 
3 O76 . 3 3 
4 075 1 ! COMPLETION STATUS: é 
: 0754 1! 3 
g 0755 1! NONE 3 
3 0756 1! ; 
; 0757 1 ! SIDE EFFECTS: 3 
3 0758 1! : 3 
3 0759 1! Preserves registers 0 and 1. F 
; the : See PASSSCLOSE_LOCAL 3 
3 b76¢ 1 ! SIGNALLED ERRORS: 3 
3 0763 1! 3 
3 0764 1! NONE é 
; 709 0765 1 !-- 3 
3 0766 1 ; 
a 0767 2 BEGIN 3 
s ar 0768 2 3 
. 2 0769 2 BUILTIN : 
: 716 0770 FP; 3 
: 715 0771 3 
; 7 bos 1+ : : : 
; «717 077 ' Call PASSSCLOSE_LOCAL with one argument, the current FP. This 3 
;s 718 0774 ' will get pushed on the stack. : 
3 719 0775 te 5 
: 720 0776 3 
: 721 0777 PASSSCLOSE_LOCAL (.FP); 3 
; sé 0778 3 
: Te 0779 RETURN; 3 
: 726 0780 ; : 
» fas 0781 1 END; ! End of routine PASS$S$CLOSE_LOCAL_R3 : 


| 
| 
| 
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5D DD 00000 PASSCLOSE_LOCAL_R3:: 
HL FP ; 0777 
ay * 3 Oe BSBW PASSSCLOSE_LOCAL : 
5E 4 f ADDL2 #4, SP : 
08 RSB ; 0781 
; Routine Size: 9 bytes, Routine Base: _PASSCODE + 0187 


139 


8785 : ! <BLF /PAGE> 
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1-008 PASSSCLOSE LOCAL = Elese’ Local files 14- ~300- 1382 b:3F: 9 PASRTL.SRC PASFIL OF aS; 31 . (8 

; 729 784 1 ZSBTTL ‘PASSSCLOSE LOCAL = Close local files’ 

; (3 785 1 GLOBA L ROUTINE PASSSCLOSE LOCAL (PROCEDURE _FP) 

s 751 7 § 1 JSB_CLOSE_LOCAL NOVALUE = 

2 ¢ 7 1 

2 788 1 S44 

3 : 188 : FUNCTIONAL DESCRIPTION: 

: 4 $ ag : Closes all open files which were declared local by our caller. 

3 f | 738 : CALLING SEQUENCE: 

: oe a Fs : JSB PASSSCLOSE_LOCAL (PROCEDURE_FP.rlu.v) 

: rg 797 1 | FORMAL PARAMETERS: 

; 7% 0798 1! 

; 744 0799 1! PROCEDURE _FP - This is the frame pointer of the procedure for 

: 765 0800 1 } which we are chosing its Loses files. This 

: 746 0801 1! value is passed on the stack 

: 747 Bang 1/ 

; 748 0803 1 ! IMPLICIT INPUTS: 

3; 749 0804 1! 

; 750 0805 1! Our SP 

s 731 0806 1: FILE QUEUE 

; Pe 0807 1! REQUEST LEVEL 

3 73 0808 1: QUEUE ih IALIZED 

3; 754 0809 1! REMOVE _REQUESTED 

s 735 0810 1: 

; 756 0811 1 ! IMPLICIT OUTPUTS: 

; 757 pag 1! 

: 758 0813 1! NONE 

3; 759 0814 1: | 
3; 760 0815 1 i COMPLETION STATUS: 
: 761 0816 1} 

; 166 0817 1 NONE 

; 76 0818 1! 
: 764 0819 1 | SIDE EFFECTS: 
; 765 0820 1} 
3; 766 0821 1! Closes all open files whose PFVs are between PROCEDURE_FP and SP 
: 767 ba5$ 1: (i.e. declared locally in our caller's procedure). | 
; 768 08 1! 

3; 769 0824 1 | SIGNALLED ERRORS: 

; 770 0825 1} 

: 771 08 $ Zz. NONE 

: wr Be 1 i- 

:; 77 ye 

: 776 0829 BEGIN 

: 775 0830 

; 776 0831 LOCAL 

; 777 bass Fe: REF SPASS$FCB_CONTROL_BLOCK, ! File control oftos* 

; 778 083 NEXT _F i Next FCB in QUEUE 

; 779 base REMQDE _OK; ' TRUE if ok to do REMQUEs 

; 780 835 

; 781 ty] BUILTIN 

; 7 33 REMQUE, 

; 78 3 SP; 

3; «6784 839 

; «6785 0840 '¢ 
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lation utility procedures 1930071388 33339) AX-1 
LOCAL = Close local files 14-Sep-1984 12:51: 


If queue not initialized, nothing to close. 


1 
9 PASRTL. 


IF NOT .QUEVE_INITIALIZED 
RETURN; 


14 
Increment REQUEST_LEVEL and set REMQUE_OK appropriately. 


IF (REQUEST_LEVEL = .REQUEST_LEVEL + 1) NEQ 0 
REMQUE_OK = 0 

ELSE 
REMQUE_OK = 1; 


1+ 
Get the first FCB from the queue. 


FCB = .FILE_QUEUVE (0); ! Forward Link 


14 
While there are files left, look for local files to close. 


WHILE (FCB CFCBSR_FCB] NEQA FILE_QUEUE) DO ! Stop when we get back to header 
FCB = FCB CFCBSR_FCB) + FCBSK_BLN; ! Get correct FCB origin 


NEXT_FCB = .FCB CFCBSL_QUEVE_FLINK); ' Next file in queue 
cae -FCB CFCBSV_DEACLOC] AND NOT .FCB CFCBS$V_STATIC) 
BEGIN 
LOCAL 
PFV: REF SPASSPFV_FILE_VARIABLE; 
PFV = .FCB CFCBSA s ' Get PFV 
ir ery CPFVSR_PFVJ LSSA .PROCEDURE_FP AND PFV CPFV$R_PFV] GTRA .SP 


BEGIN 
i We have a local file. We can't be gQuaranteed that the 


' contents of the PFV are valid, so set the necessary items 
here. Close the file. 


PF 
DO_CLOS 


'¢ 
' Remove the file from the queue. This will either be 
a REMQUE or a request to remove. 


Oh legate v4.0- 
RC JPASFILEUT 


} 
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tt PASSSCLOSE_LOCAL - Close Local files 14 Saat 93:37:95 PASRTL. SRC IPASF ILEUT.B 2:1 a (3) 


Bcc 899 


; IF .REMQUE_OK 3 
; 845 900 THEN ; 
3 $ 901 6 BEGIN : 
3; BG 902 6 ; 
; 848 903 6 ITEM_ADDR; ! Output from REMQUE . 
> 849 904 6 REMQUE (FCB cf CBs QUEUE_FLINK], ITEM_ADDR); : 
; 830 905 4 PASSSFREE_VM (PASSR_FILE-DYN_BLN, ITEM_ADDR); : 
; S26 b909 g ELSE ‘ 
; 85 908 6 BEGIN : 
; Hee 909 6 FCB CFCBSV_DEALLOC) = 1; ; 
; 855 910 § REMOVE _REQUESTED = 1; ; 
: 528 0911 END; : 
; 85 O9i¢ 4 END; : 
; 858 091 END; . 
; 859 0914 ‘+ ; 
; 860 0915 ! Get next FCB from queue. : 
; 861 0916 in 3 
: 86¢ 091 FCB = .NEXT_FCB; ; 
; 86 0918 END; | ; 
3; 864 0919 $ 
; 865 0920 '¢ : 
: 866 0921 i Decrement REQUEST_LEVEL. ; 
; 867 09 ; te | : 
; 868 09 3 
: 869 0924 REQUEST_LEVEL = .REQUEST_LEVEL - 1; | : 
; 870 3352 3 
: 871 0926 ‘+ 3 
; 87 0927 ! If a remove request has been made, service it. | q 
; 87 0928 i | ; 
: 874 0929 : 
: 875 0930 IF .REMOVE_REQUESTED | ; 
; 876 0931 TH 3 
; 877 093¢ SERVICE_REQUEST (); : 
; 878 093 : 
: 879 0934 RETURN; : 
; 880 0935 : | 
; 881 0936 END; ! End of routine PASS$CLOSE_LOCAL | 

| 


03 BB 00000 PASSSCLOSE LOCAL ss 


Pus #*M<RO,RI> : 0785 
5E 08 c 0000 SUBL2 #8, SP ; 
0 00000000" | EF 9003 BLBS QUEUE _INITIALIZED, 1$ + 0844 
F : NCL UEST_LEVEL : 
00000000' itt 1$ INC REQUEST_LEVE 0852 
ef D4 poi? erat Remove OK + 0854 
11 00019 BRB - : 
§ 63 ny $O1B gs: MOVL #1, REMQUE_OK > 0856 
90000000" EF pO OO1E $: MOVL FILE_QUEUE> FCB : 0862 | 
50 00000000' EE E 8 4s: MOVAB FILE-QUEUE, RO > 086 
50 2 D1 0002C CMPL FCB, RO : 


8 
\ SSFILE_UTIL File manipulation utility procedures ibes Sep 4 01:33:01 AX-11 Bliss-32 V4.0-74 Page 25. 
5 PASSSCLOSE LOCAL - tlese’ Local files 14-Sep -1982 9}: 1: 9} PASRIL  SREIPASE LLEUT B42:1 9 (33 | 
65 13 0002F BEQL 7s ; | 
44 A2 9E 00031 MOVAB 68(R2), FCB : 0870 
BC Ae DO 00035 MOVL  =68(FCB), NEXT FCB ; 0871, 
53 FE A 0 E 9 BBS wi, -2(FB), 6$ + 0872 | 
4E F A E BBS a" -B(FCB), 6$ : 
5 DC «Ae OD 4 MOVL =36(FCB), PFY : 0877 
AE 50 0 4 CMPL  PFV, PROCEDURE_FP : 0878 | 
44 1€ 00048 BGEQU 6$ : 
SE 20 D1 00040 CMPL FV, SP : | 
F 1B 0005 BLEQU 6$ : 
06 AO Bs 005 CLRW 6(PFV) : 0887 
07 Ad ra) 8 8 905 BISB2 #192, 7(PFV) : 0889 
OC Ad DO 0005A MOVL FCB, 12(PFV) : 0890 
08 a0 E4 A2 00 0056 MOVL =28(FCB), 8(PFV) : 0891 
50 DD 0006 PUSHL  PFV : 0892 
0000v CF 01 FB 00065 CALLS #1, DO_CLOSE : 
19 6 EY 0006A BLBC §REMQUE~OK, 5$ : 0899 
50 BC Ae 9E 0006D MOVAB -68(FCB), RO + 0904 | 
04 AE 60 OF 00071 REMQUE (RO), ITEM_ADDR ; | 
04 AE 9F 00075 PUSHAB ITEM_ADDR ; 0905 | 
7E 0138 8F 3C¢ 00078 MOVZWL #312, -(SP : 
000000006 00 02 FB 0007D CALLS #2, PASSSFREE_VM : 
0B 11 00084 BRB 6$ : 0899 
FE A2 02 88 00086 5$ BISB2 #2, -2(FCB) : 0909 
00000000" EF 01 D0 0008A MOVL #1, REMOVE REQUESTED : 0910 
52 53 DO 00091 6$: MOVL NEXT_ FCB. FCB 3 0917 
BF 11 00094 BRB 4$ : 0868 
00000000" EF D7 00096 7$: DECL § REQUEST_LEVEL > 0924 
05 00000000" EF €9 0009C BLBC REMOVE REQUESTED, 8$ : 0930 
0000v CF 00 FB 000A3 CALLS , SERVICE_REQUEST : 0932 
5E 08 CO O00A8 8$: ADDL2 "8 : 0936 
03 BA OO0AB POPR #*M<RO,R1> F 
05 O00AD RSB : 
; Routine Size: 174 bytes, Routine Base: _PASSCODE + 01C0 


882 0937 1 
883 0938 1 !<BLF/PAGE> 
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BOOS ee te ORE etttose a Fite” © en ep= 1984 92:81:59 EPASRTL SRE SPAGE LLEOT 69251 918). 
; 885 939 1 XSBITL "DO_CLOSE - Close a file’ 
; 88 940 1 ROUTINE DO-CLOSE ( ' Close a file ‘ 
; 88 941 1 PFU: REF SPASSPFV_FILE_VARIABLE ! File variable ‘ 
; 888. bk 1 ): NOVALUE = 
; 889 0945 1 
; 890 pate 1 !44 
; 44 pee? ! ; FUNCTIONAL DESCRIPTION: 
° . | 
3; $9 0949 13 This routine closes a Pascal file. This entry is called from . 
> 894 0948 1! PASSSCLOSE_ALL and PASSCLOSE_LOCAL. It is different from ; 
; 895 0949 1! CLOSE2 only in that it does not call PASSSREMOVE_FILE to : 
; 398 bees 1! remove the FCB from the List of open files. ‘ 
; 89 951 1} : 
; 898 8238 1 ! CALLING SEQUENCE: : 
; 899 0953 1} | : 
; 900 0954 1! CALL DO_CLOSE (PFV.mr.r) 
; 901 0955 1! | 
; 90 0956 1 ! FORMAL PARAMETERS: | 
; 90 0957 1! ; ; 
; 904 0958 1! PFV - The Pascal File Variable (PFV) passed by reference. | : 
; 905 0959 1! The structure of the PFV is defined in PASPFV.REQ. ; 
; 906 0960 1! : 
; 907 0961 1 ! IMPLICIT INPUTS: | : 
; 908 0962 1! : 
; 9OP 0963 1! NONE : 
; 910 0964 1! : 
>; 911 0965 1 ! IMPLICIT OUTPUTS: 
; Pie 0966 1! 
s 9S 0967 1! NONE | 
; 914 0968 1! 
; 915 0969 1 ! ROUTINE VALUE: 
; 916 0970 1! 
s Ir 0971 1! NONE | 
; 918 0972 1! : 
; vi9 0975 1 ! SIDE EFFECTS: 
: 920 0974 1! 3 
; 921 0975 1! See PASSSCLOSE : 
; as¢ 0976 1! 
; Pe 0977 1 ! SIGNALLED ERRORS: : 
; 924 0978 1! ; : 
: 925 0979 1! ERRDURCLO - error during CLOSE 3 
; 926 0980 1! | : 
s Yer 0981 1 !-- | : 
: 928 b38 1 | ; 
; 929 9835 2 BEGIN 3 
; 930 0984 § | 
2 Pai 0985 LOCAL 
; Yee 0986 § PFV_ADDR: VOLATILE; ! Enable argument 
2 Pas 0987 
; 934 0988 ‘+ a : 3 
s 6939 0989 ! Enable a local condition handler to intercept any signals from 
: 936 0990 ! trying to close the file. 
s Por 0991 !e 
; 938 99 | 
; 939 99 ABLE 
: 940 994 DO_CLOSE_HANDLER (PFV_ADDR); | 
3; 94) 0995 


— . ; ' — 
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1-005 DO.CLOSE = Close a file ee oes ri En ped iit SS Se tre age 48) 
3 8398 wl k PFV We don't if it is already locked | 
922 0998 x oc e gon care 1 1S already locked. 
945 999 


PFV CPFV$V_LOCK) = 1; 
4+ 
Set PFV_ADDR enable argument. 


PFV_ADDR = PFV CPFVSR_PFV); 


4 
Call PAS$S$CLOSE to do the work. 


1+ | 
Invalidate information in PFV 


PFV CPFVS$V_FCB_VALID) = 0; 
PFV CPFV$A_FCBJ = 0; 
RETURN; 

END; ! End of routine DO_CLOSE | 


: PASSSCLOSE (PFV CPFVS$R_PFVJ); | 
1 


— Se dS Ss SS Ss SS SS 2 SS SS YS YS YY SY 


.EXTRN PASSSCLOSE 
0004 00000 DO_CLOSE: | 
“WORD 


Save R2 ; 0940. 
7E D4 00002 CLRL = PFV_ADDR : 0983 
6D OO1F CF DE 00004 MOVAL 1$,7(FP) : 
52 04 AC pO 00009 MOVL PFV Re : 1000 
07 A2 80 8F 88 0000D BISB2 #128, 7(R2) : 
6E 32 D0 00012 OVL Re. PFV_ADDR > 1006 | 
52 DD 0001 PUSHL R + 1012 | 
000000006 00 01 FB 00017 CALLS #1, PASS$S$CLOSE ; 
07 =A 40 8F 8A 00016 BICB2 #64, 7(R2) > 1018 
OC A2 D4 000 CLRL =: 12(R2) + 1019 
4 00026 RET > 1023 
0000 808 7 18: «WORD Save nothing ; 0983 | 
50 08 AC 00 00029 MOVL (AP), RO F 
50 04 AO 00 0002D MOVL  4(RO); RO : 
FC AO 9F 00031 PUSHAB PFV_ADDR 3 
01 DD 0034 PUSHL #1 : 
5E Dp 00 PUSHL SP ; 
7E 04 AC 7D 0038 MOV. 4(AP), =-(SP) ; 
0000v CF 03 FB 0003C CALLS #3, DO_CLOSE_HANDLER ; 
04 00041 ET ; 


3; Routine Size: 66 bytes, Routine Base: _PASS$CODE + 026E 


9 
808 FAUT SOE OSE eMEtSse"a File” Drocecures 1eSepr198s 9237:39 — UPASmTL oSReSPASE ILEUT 88251 Page 1) 


1ose 1 
1025 1 !<BLF/PAGE> 


SS ee ee c-- 
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1-005 DO_CLOSE_HANDLER = Error handler for DO_CLOSE 14-Sep-1984 12:51:29 PASRTL.SRCJPASF ILEUT.B32;1 (11) 
; 973 10 § 1 ZSBITL "DO_CLOSE_HANDLER = Error handler for DO_CLOSE’ : 
; 974 1 1 ROUTINE DO_CLOSE HANDLER ( 3 
> 975 1 8 1 SIGNAL_ARGS: REF BLOCK C, BYTE], ! Signal arguments array ; 
; 378 1 1 MECH_ARGS: REF BLOCK C, BYTE], ! Mechanism arguments array : 
: 97 1030 1 ENABCE_ARGS: REF VECTOR C, LONG] i Enable arguments array : 
; 978 1031 1 )= : 
; 979 10 ¢ 1 3 
; 980 10 y {oe : 
3 sf 18 : : FUNCTIONAL DESCRIPTION: : 
; 98 1036 1! This is the condition handler enabled by DO_CLOSE. : 
; 9846 1934 1 ! If the current exception is a PAS$ —— for the file ; 
; 985 1036 1! our establisher was processing, intercept the signal, use ; 
; 986 1039 1! SPUTMSG to ¢iseley the message text, and unwind to our ; 
; rt igey : establisher's caller. : 
>; 989 Hk 1! The reason for using SPUTMSG is that DO_CLOSE ~*~ be called : 
; 990 1045 1! from PASS$HANDLER aa ne an unwind. The current VAX ; 
; 991 1044 1! condition handling architecture does not specify what happens | ; 
: 044 1045 1! when an exception occurs during an unwind, and the current : 
; 1046 1! implementation performs the search for handlers incorrectly. ; 
; ba: ee : We are safe as long as we don't let the signal outside of the RTL. | ‘ 
; : ‘ 
; 996 1049 1 ! CALLING SEQUENCE: ‘ 
; 997 1050 1! : 
; 998 1051 1! status.wlc.v = DO_CLOSE_HANDLER (SIGNAL_ARGS.rl.ra, MECH_ARGS.rl.ra ; 
; 999 1938 1! , ENABLE_ARGS.rl.ra) : 
; 1000 1053 1! : 
; 1001 1054 1 ! FORMAL PARAMETERS: ; 
3 1008 1055 1! : 
; 100 1056 1! SIGNAL _ARGS - The signal argument List. 
: 1004 1057 1! 
; 1005 1058 1! MECH_ARGS - The mechanism argument List. 
; 1006 1059 1! ; 
; 1007 1060 1! ENABLE _ARGS - An array with the following 
; 1008 1061 1! format: 
3; 1009 1066 1! 
; 1010 1065 1!  —  *eneeeeocooocooce + 
; 1011 1064 1! :  ENB_COUNT | <== ENABLE_ARGS 
3 a 1065 1! = = = = teeeeweseweeowoee 
3; 101 1066 1! | ENB_PFV_ADDR : 
3; 1014 1067 1! teeeeesocosoccece + 
3; 1015 1068 1! 
3 1gt¢ 196? 1} ENB_COUNT is the count of following enable arguments. 
: aE 24 ! } The count is always 1. 
; 1019 1 1} ENB_PFV_ADDR - If non-zero, the address of a longword 
3 1980 18 ! containing the PFV our establisher is operating on. 
3 1958 1075 1°! IMPLICIT INPUTS: 
; 102 1978 1! ‘ : ; 
3: 1024 1077 1! The orratier® PFV placed as the first FAO argument in the primary 
: 1025 1978 1! signalled message. 
3 1988 1079 1! 
:; 1027 1080 1 ! IMPLICIT OUTPUTS: 
: 1028 1081 1! : 
3 1029 1082 1! May use SPUTMSG to write a message 
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LOSE. HANDLER Error handler for DO_CLOSE 12286871382 93:37:95 PASRTL.SRC PASr ILEUT 69251 atthe 
ROUTINE VALUE: 

SS$_RESIGNAL 
SIDE EFFECTS: 


May cause an unwind. 


BEGIN 
LITERAL | 
ENB_COUNT = 0, ' Count of enable arguments | 
ENB_PFV_ADDR = 1; ! Address of address of PFV 
| 


BUILTIN 
ACTUALCOUNT ; 


14 

Determine if this is an unwind. 

aa ties CCHFSL_SIG_NAME] NEQU SS$_UNWIND 
BEGIN 


LOCAL 
COND_NAME: BLOCK (4, BYTE]; ! Primary condition name 


i 
1+ | 
Get primary condition name. | 

} 


COND_NAME = .SIGNAL_ARGS CCHF$L_SIG_NAME); 


FFFSESESAS NOUSWN (OO ODONOUE WN "OO OONOUFSWN—O 


+ 
: Is this a PAS$ error? If not, resignal. 


SEESSSSESS CSOS IGT OSES EE EP EPR EPOCOROOTOES. 


IF _.COND_NAME CSTSS$V_FAC_NO] NEQU PASS_FACILITY 
RETURN SS$_RESIGNAL; 


‘+ 

' See if the error pessege is one which is ‘‘trapped’’ 
! by ERROR:=CONTINUE. This is done by comparing the 
message number against a select range. 


eesssssessss 
BONIOAE UN —OOMN 


000 
-o 


IF .COND_NAME CSTS$V_CODE] GEQU PASSSK_MSGCONTLO AND ! Lowest number 
~COND_NAME CSTS$V_CODE] LEQU PASS$SK_MSGCONTHI 


BEGIN 


'¢ 


S 


LH FANNIN NIAAA AAAI AIA AAI AIA DI PIPOI PUP NPUDINININPININONINY 2 OO OS OS OS SO 
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1-005 DO. CLOSE. HANDLER - error hendler for DO_CLOSE 1e-8ep-19 4 95387 59 PASRTL. RESPASF ILEGT B82: 1 ’ (11). 
: 1087 1140 4 ! See if the PFVs match. The signaller's PFV is the 
; 1088 1141 4 ! first FAO parameter in the primary message. 
; 195% 1126 4 le 
; 1090 1145 4 
; 1091 1144 4 IF_ .SIGNAL_ARGS (12,0,32,0] EQLA ..ENABLE_ARGS CENB_PFV_ADDRJ 
; 1036 1145 4 THE 
; 109 1198 5 BEGIN 
: 1094 1147 5 
3; 1095 1148 5 + 
: 1096 1149 5§ ! We want to use SPUTMSG to display the message, and then 
; 1097 1150 5 ! unwind to our establisher's caller. First, subtract two 
; 1098 1151 5 i from the signal argument count so that SPUTMSG doesn't see 
: 1099 1136 5 ! the PC and PSL. 
; 1100 1153 5 le 
3; 1101 1154 5 
: 1106 1155 5 SIGNAL_ARGS CCHFSL_SIG anes = _.SIGNAL_ARGS CCHFS$L_SIG_ARGS] - 2; 
: 110 1156 5 COND E CSTS$V_SEVERITY] = STSSK_ERROR; ! Make"E severity 
3 1104 1157 § SIGNAL ARGS CCHFSL SIG NAME] = .COND_NAME; 
; 1105 1158 5 SPUTMSG (MSGVEC = SIGNAL ARGS CCHFS$L-SIG_ARGS]); 
HY 1108 1325 2 SIGNAL_ARGS CCHFSL_SIG_ARGS] = .SIGNAL_ARGS CCHF S$L_S1IG_ARGS) + 2; 
; 1108 1161 6 IF NOT SUNWIND () 
3 1109 1398 5 
3; 1110 116 5 SPASSBUGCHECK (BUG_UNWINDFAIL); 
s 1193 1164 4 END; 
; ig 1165 3 END; 
3111 1166 2 END; 
3 1114 1167 2 
3 4442 11¢8 § RETURN SS$_RESIGNAL; ! Resignal error 
3 1117 1170 1 END; ! End of routine DO_CLOSE_HANDLER 
-EXTRN PASS_FACILITY, PASSS$K_MSGCONTLO 
SEXTRN PASSSK_MSGCONTHI 
-EXTRN SYSSPUTMSG, SYSSUNWIND 
0004 00000 DO_CLOSE_HANDLER: | 
«WORD Save R2 : 1027 | 
2 04 AC DO 00002 MOVL SIGNAL_ARGS, R2 : 1107 
00000920 aF 06 Ad D1 00006 CMPL = -4(R2), #2336 ong 
SF 13 Bate BEQL 1$ 3 
1 04 a6 dO 8001 MOVL 4(R2) OND _NAME 3; 1118) 
C 10 ED 00014 CMPZ7V #16, #i2, COND_NAME, S*PASS_FACILITY > 1126 | 
54 12 4 bh BNEQ 1$ 3 
0c 03 FD 0018 CMPZ7V #3, #12, COND_NAME, #PASS$SK_MSGCONTLO > 1134 
49 1F 00024 BLSSU _1$ 3 
0c 93 ED 00026 CMP2V #3, #12, COND_NAME, #PASS$SK_MSGCONTHI > 1135) 
E 1A 0002F BGTRU 1$ 3 
0 0c AC 00 00031 MOVL BRABLE ARGS RO 3 V1A6 | 
0 0C Ag D1 00035 CMPL 12(R2)> a4(RO) ; 
33 12 OOO3A BNEQ 1$ 3 
2 02 C2 0003C SUBL 2 a. (R2) : 1155 | 
Q F boo F INSV #2, #0, #3, COND_NAME 3 1128 | 
2 1 p 0044 MOVL COND NAME, 4(R2) : 1157 
7E 7C 00048 CLROQ = (SPJ ; 1158 | 


PAS 
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1-005 DO_CLOSE_HANDLER = Error handler for DO_CLOSE 14-Sep- 984 12:51:29 PASRTL.SRCJPASF ILEUT.832;1 
7E 04 ppoea CLRL -(SP) 
52 DD 0004C PUSHL R 
000000006 08 04 4 Bees CALL #4, SYSSPUTMSG 
6 be c 005 ADDL #2, (R2) 
C 00058 CLRQ -(SP 
000000006 00 9 4} OO5A CALLS #2, SYSSUNWIND 
0B E B08} BLBS RO, 1$ 
03 DD 00064 PUSHL 
000000006 00 01 FB 00066 CALLS #1, PASS$BUGCHECK 
06 11 0006D BRB 2$ 
50 0918 8F 3C BROet 1$ MOVZWL #2328, RO 
04 00074 RET 
50 D4 00075 2$ CLRL RO 
04 00077 RET 
; Routine Size: 120 bytes, Routine Base: _PASSCODE + 0280 


1 
1 !<BLF/PAGE> 
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PASSSFILE_UTIL File een pul es ign ust tty rocedures 1e-se0~ 1386 01 33:9) AX-11 O rete ne 
1-005 INITIALIZE QUEUE = Initialize FILE_QUEUE 14-Sep-1984 12:51:29 PASRTL.SRCJPASF ILEUT.B32;1 
: 1178 1230 '- 
; 1179 1231 
3 113 1 ¢ IF TESTBITCS (QUEVE_INITIALIZED) 
; 1181 1 THEN 
3 1188 1234 BEGIN 
: 118 1235 FILE_QUEUE fF} = FILE QUEUE; ! Set forward Link 
3; 1186 1 § FILE_QUEVE [1] = -FILE_Queueé C0]; ' Set backward Link 
> 1185 1 END; 
; 1186 1238 
> 1187 1239 ‘+ 
; 1188 1240 ' Reenable ASTs if previously enabled. 
: 1189 1241 \ 
; 1190 1 r4 | 
: 1191 124 IF .AST_STATUS EQL SS$_WASSET 
3 1138 1244 THEN 
3; 119 1245 SSETAST (ENBFLG = 1); 
3 1194 1246 
3 1195 1247 RETURN; 
3; 1196 1248 
3; 1197 12469 1 END; ! End of routine INITIALIZE_QUEUE 
000C 00000 INITIALIZE_QUEUE: 
-WORD Save R2,R3 
53 00000000G 00 9€E 00002 MOVAB SYSS$SETAST, R3 
52 00000000' cr 9E 00009 MOVAB FILE_QUEUE, R2 
E D4 00010 CLRL -(SPY 
63 01 FB poe lg CALLS #1, SYSSSETAST 
07 Oc 8 A2 00 €2 0001 BBSS #0, QUEVE INITIALIZED, 1$ 
62 62 9E OOOIA MOVAB FILE_QUEUE, FILE_QUEUE 
04 A2 62 00 00010 MOVL FILE QUEUE, FILE_QUEUE+4 
09 . 50 Di 00021 1$ CMPL AST_STATUS, #9 
05 12 00024 BNEQ 2$ 
01 ODD Base PUSHL #1 
63 01 FB 00028 CALLS #1, SYSSSETAST 
04 00028 2$: ET 
3; Routine Size: 44 bytes, Routine Base: _PASSCODE + 0328 
1250 1 
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5 EST = Service remove request 
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SERVICE_ 
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OUTINE SE 


Ce eel et eel cel eel eel el eel ce cel ce ce ee ce ee ee ce ee ee en ce el cel ce el cl el el ce 


Removes all FCBs from FILE_QUEUE that have DEALLOC set. 


CALLING SEQUENCE: 


SERVICE_REQUEST () 


FORMAL PARAMETERS: 


NONE 
IMPLICIT INPUTS: 


FILE_QUEUE 
EST_LEVEL 
REQUESTED 
IMPLICIT OUTPUTS: 


REQU 


REMOVE _ 


FILE_QUEUE 
REQUEST LEVEL 
REQUESTED 
COMPLETION STATUS: 


REMOVE _ 


NONE 


SIDE EFFECTS: 


Removes FCBs from queue. 


SIGNALLED ERRORS: 


' List of FCBs we deallocated 


NONE 


LOCAL 
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ncrement REQUEST_LEVEL. If we are at level zero, then we can 
can the queue and do REMQUEs. 


Eat seeen TE EQ. 0 
BEGIN 


OCAL 
AST_STATUS ' Previous AST enable status 
CURRENT_FCB: REF VECTOR C, LONG]; |! Current FCB to look at 


'¢ 
! Disable ASTs and remember previous status. This makes us 
multi-stream AST reentrant. 


AST_STATUS = S$SETAST (ENBFLG = 0); 
'¢ 


Get first FCB on FILE_QUEUE. 


CURRENT_FCB = .FILE_QUEVE (OJ; ! Forward Link 


wn—o 


14 
Clear RENOVE_REQUESTED. 
REMOVE_REQUESTED = 0; 


+ 
' While we haven't run out of FCBs, look for FCBs with the 
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91 ' DEALLOC bit set, remove them from the queue, and insert them 
4 } on the List of blocks to be freed. 

94 

95 WHILE (.CURRENT_FCB NEQA FILE_QUEVE) DO ! Back at queue header? 
4 BEGIN 

Ms Allow offset to zero-origin of FCB. 

00 51 CAL 

01 2g FCB_ORIGIN: REF SPASS$FCB_CONTROL_BLOCK; 

4 5 FCB_ORIGIN = Oe rt ey + PoesK_ : 

0 54 IF .FCB_ORIGIN CFCBSV_DEALLOC 

04 55 THEN 
$02 56 BEGIN 

57 LOCAL 

30 58 TEMP; ! Output from REMQUE 
308 59 REMQUE (CURRENT FCB C0}, TEMP); 

09 60 CURRENT _FCB (OJ) = .FREE_LIST; ! Add FCB to free List | 
311 56 FREE_LIST = .CURRENT_FCB; 

\ 8 
31 He: '¢ 
314 65 ' Get next FCB from the queue. 
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PASSSFILE_UTIL File manipulation utility procedures 16-Sep-1984 3: AX-11 Bliss-32 V Page 39° 

\- SERVICE REQUEST - Service Geneve request 14-Sep 71984 93; 3} 9 PASRTL. SRC PASFIL OF B82, 31 . vreed 
s 1355 1405 1 END ! End of module PASSS$FILE_UTIL : 
1386 1406 1 7 | 
; 135 1407 0 ELUDOM | ; 
| 
| ; 
; PSECT SUMMARY | : 
; Name Bytes Attributes | : 
;  PASSDATA 20 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) | F 
; _PASSCODE 960 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
: Library Statistics | : 
Pine ee eee vie Os ey Symbols -------- Pages Processing : 
; File Total Loaded Percent Mapped Time : 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 19 0 581 00:00.9 ; 
; ~$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 105 24 33 00:00.4 | : 
COMMAND QUALIFIERS 3 
; PL ISE/CME CREF LELD, SULT IAL -OPTINI LE) /UOTRACE A, ESHL LSE 1 PASE LLEYT (OR I=ORIS sPASF BL EUT MSRC$:PASF ILEUT/UPDATE=(ENHS$: PASF ILEUT : 
3; Size: 960 code + 20 data bytes : 
; Run Time 00:21.6 ‘ 
3 classed. Time: 01:09.6 3 
3; Lines/CPU Min: 5915 : 
; Lexemes/CPU-Min: 16758 é 
; Memory Used: 102 pages : 
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